home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / Adobe After Effects 6.0 tryout / MM5.Cab / F3669_MPS.dll.304FA6F7_2783_11D4_8520_00C04F602FD3 / PROC / ADOBE_TYPOGRAPHY_AI3 < prev    next >
Text File  |  2003-07-18  |  7KB  |  571 lines
  1. %%BeginResource: procset Adobe_typography_AI3 3.0 0
  2. %%Title: (Universal Typography Operators)
  3. %%Version: 3.0 0
  4. %%CreationDate:(9/24/96) ()
  5. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_typography_AI5 66 dict dup begin
  8. put
  9. /initialize
  10. {
  11.     pop pop
  12. } def
  13. /initialize2
  14. {
  15.  begin
  16.  begin
  17.     Adobe_typography_AI5 begin
  18.     Adobe_typography_AI5
  19.     {
  20.         dup xcheck
  21.         {
  22.             bind
  23.         } if
  24.         pop pop
  25.     } forall
  26.  end
  27.  end
  28.  end
  29.     Adobe_typography_AI5 begin
  30. } def
  31. /terminate
  32. {
  33. } def
  34. /terminate2
  35. {
  36.     currentdict Adobe_typography_AI5 eq
  37.     {
  38.      end
  39.     } if
  40. } def
  41. /modifyEncoding
  42. {
  43.     /_tempEncode exch ddef
  44.     /_pntr 0 ddef
  45.     {
  46.         counttomark -1 roll
  47.         dup type dup /marktype eq
  48.         {
  49.             pop pop exit
  50.         }
  51.         {
  52.             /nametype eq
  53.             {
  54.                 _tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
  55.                 put
  56.             }
  57.             {
  58.                 /_pntr exch ddef
  59.             } ifelse
  60.         } ifelse
  61.     } loop
  62.     _tempEncode
  63. } def
  64. /havefont
  65. {
  66.     systemdict /languagelevel known
  67.         {
  68.         /Font resourcestatus dup
  69.             { exch pop exch pop }
  70.         if
  71.         }
  72.         {
  73.         systemdict /FontDirectory get 1 index known
  74.             { pop true }
  75.             {
  76.             systemdict /fileposition known
  77.                 {
  78.                 dup length 6 add exch
  79.                 Ss 6 250 getinterval
  80.                 cvs pop
  81.                 Ss exch 0 exch getinterval
  82.                 status
  83.                     { pop pop pop pop true }
  84.                     { false }
  85.                 ifelse
  86.                 }
  87.                 {
  88.                 pop false
  89.                 }
  90.             ifelse
  91.             }
  92.         ifelse
  93.         }
  94.     ifelse
  95. } def
  96. /TE
  97. {
  98.     StandardEncoding 256 array copy modifyEncoding
  99.     /_nativeEncoding exch def
  100. } def
  101. %
  102. /TZ
  103. {
  104.     dup type /arraytype eq
  105.     {
  106.         /_wv exch def
  107.     }
  108.     {
  109.         /_wv 0 def
  110.     } ifelse
  111.     /_useNativeEncoding exch def
  112.     2 index havefont
  113.     {
  114.         2 index findfont
  115.     }
  116.     {
  117.         dup 1 eq
  118.         {
  119.             2 index 64 string cvs
  120.             dup dup length 11 sub dup 0 le
  121.             {
  122.                 pop pop pop true
  123.             }
  124.             {
  125.                 11 getinterval dup
  126.                 (90pv-RKSJ-H) eq
  127.                 {
  128.                     0 (83pv-RKSJ-H) putinterval
  129.                     cvn dup havefont
  130.                     {
  131.                         findfont false
  132.                     }
  133.                     {
  134.                         pop true
  135.                     } ifelse
  136.                 }
  137.                 {
  138.                     pop pop true
  139.                 } ifelse
  140.             } ifelse
  141.             {
  142.                 /Ryumin-Light-83pv-RKSJ-H havefont
  143.                     {/Ryumin-Light-83pv-RKSJ-H}
  144.                     {/Courier}
  145.                     ifelse
  146.                     findfont
  147.                     [1 0 0.5 1 0 0] makefont
  148.             } if
  149.         }
  150.         {
  151.             /Courier findfont
  152.         } ifelse
  153.     } ifelse
  154.     _wv type /arraytype eq
  155.     {
  156.         _wv makeblendedfont
  157.     } if
  158.     dup length 10 add dict
  159.  begin
  160.     mark exch
  161.     {
  162.         1 index /FID ne
  163.         {
  164.             def
  165.         } if
  166.         cleartomark mark
  167.     } forall
  168.     pop
  169.     /FontScript exch def
  170.     /FontDirection exch def
  171.     /FontRequest exch def
  172.     /FontName exch def
  173.     counttomark 0 eq
  174.     {
  175.         1 _useNativeEncoding eq
  176.         {
  177.             /Encoding _nativeEncoding def
  178.         } if
  179.         cleartomark
  180.     }
  181.     {
  182.         /Encoding load 256 array copy
  183.         modifyEncoding /Encoding exch def
  184.     } ifelse
  185.     FontName currentdict
  186.  end
  187.     definefont pop
  188. } def
  189. /tr
  190. {
  191.     _ax _ay 3 2 roll
  192. } def
  193. /trj
  194. {
  195.     _cx _cy _sp _ax _ay 6 5 roll
  196. } def
  197. /a0
  198. {
  199.     /Tx
  200.     {
  201.         dup
  202.         currentpoint 3 2 roll
  203.         tr _psf
  204.         newpath moveto
  205.         tr _ctm _pss
  206.     } ddef
  207.     /Tj
  208.     {
  209.         dup
  210.         currentpoint 3 2 roll
  211.         trj _pjsf
  212.         newpath moveto
  213.         trj _ctm _pjss
  214.     } ddef
  215. } def
  216. /a1
  217. {
  218. W B
  219. } def
  220. /e0
  221. {
  222.     /Tx
  223.     {
  224.         tr _psf
  225.     } ddef
  226.     /Tj
  227.     {
  228.         trj _pjsf
  229.     } ddef
  230. } def
  231. /e1
  232. {
  233. W F 
  234. } def
  235. /i0
  236. {
  237.     /Tx
  238.     {
  239.         tr sp
  240.     } ddef
  241.     /Tj
  242.     {
  243.         trj jsp
  244.     } ddef
  245. } def
  246. /i1
  247. {
  248.     W N
  249. } def
  250. /o0
  251. {
  252.     /Tx
  253.     {
  254.         tr sw rmoveto
  255.     } ddef
  256.     /Tj
  257.     {
  258.         trj swj rmoveto
  259.     } ddef
  260. } def
  261. /r0
  262. {
  263.     /Tx
  264.     {
  265.         tr _ctm _pss
  266.     } ddef
  267.     /Tj
  268.     {
  269.         trj _ctm _pjss
  270.     } ddef
  271. } def
  272. /r1
  273. {
  274. W S
  275. } def
  276. /To
  277. {
  278.     pop _ctm currentmatrix pop
  279. } def
  280. /TO
  281. {
  282.     iTe _ctm setmatrix newpath
  283. } def
  284. /Tp
  285. {
  286.     pop _tm astore pop _ctm setmatrix
  287.     _tDict begin
  288.     /W
  289.     {
  290.     } def
  291.     /h
  292.     {
  293.     } def
  294. } def
  295. /TP
  296. {
  297.  end
  298.     iTm 0 0 moveto
  299. } def
  300. /Tr
  301. {
  302.     _render 3 le
  303.     {
  304.         currentpoint newpath moveto
  305.     } if
  306.     dup 8 eq
  307.     {
  308.         pop 0
  309.     }
  310.     {
  311.         dup 9 eq
  312.         {
  313.             pop 1
  314.         } if
  315.     } ifelse
  316.     dup /_render exch ddef
  317.     _renderStart exch get load exec
  318. } def
  319. /iTm
  320. {
  321.     _ctm setmatrix _tm concat
  322.     _shift aload pop _lineorientation 1 eq { exch } if translate
  323.     _scale aload pop _lineorientation 1 eq _yokoorientation 1 eq or { exch } if scale
  324. } def
  325. /Tm
  326. {
  327.     _tm astore pop iTm 0 0 moveto
  328. } def
  329. /Td
  330. {
  331.     _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  332. } def
  333. /iTe
  334. {
  335.     _render -1 eq
  336.     {
  337.     }
  338.     {
  339.         _renderEnd _render get dup null ne
  340.         {
  341.             load exec
  342.         }
  343.         {
  344.             pop
  345.         } ifelse
  346.     } ifelse
  347.     /_render -1 ddef
  348. } def
  349. /Ta
  350. {
  351.     pop
  352. } def
  353. /Tf
  354. {
  355.     1 index type /nametype eq
  356.     {
  357.         dup 0.75 mul 1 index 0.25 mul neg
  358.     } if
  359.     /_fontDescent exch ddef
  360.     /_fontAscent exch ddef
  361.     /_fontSize exch ddef
  362.     /_fontRotateAdjust _fontAscent _fontDescent add 2 div neg ddef
  363.     /_fontHeight _fontSize ddef
  364.     findfont _fontSize scalefont setfont
  365. } def
  366. /Tl
  367. {
  368.     pop neg 0 exch
  369.     _leading astore pop
  370. } def
  371. /Tt
  372. {
  373.     pop
  374. } def
  375. /TW
  376. {
  377.     3 npop
  378. } def
  379. /Tw
  380. {
  381.     /_cx exch ddef
  382. } def
  383. /TC
  384. {
  385.     3 npop
  386. } def
  387. /Tc
  388. {
  389.     /_ax exch ddef
  390. } def
  391. /Ts
  392. {
  393.     0 exch
  394.     _shift astore pop
  395.     currentpoint
  396.     iTm
  397.     moveto
  398. } def
  399. /Ti
  400. {
  401.     3 npop
  402. } def
  403. /Tz
  404. {
  405.     count 2 ge
  406.         {
  407.         1 index type dup /integertype ne
  408.             {
  409.             /realtype ne
  410.                 {
  411.                 100
  412.                 } if
  413.             }
  414.             {
  415.             pop
  416.             } ifelse
  417.         }
  418.         {
  419.         100
  420.         } ifelse
  421.     100 div exch 100 div exch
  422.     _scale astore pop
  423.     iTm
  424. } def
  425. /TA
  426. {
  427.     pop
  428. } def
  429. /Tq
  430. {
  431.     pop
  432. } def
  433. /Tg
  434. {
  435.     pop
  436. } def
  437. /TG
  438. {
  439.     pop
  440. } def
  441. /Tv
  442. {
  443.     /_lineorientation exch ddef
  444. } def
  445. /TV
  446. {
  447.     /_charorientation exch ddef
  448. } def
  449. /Ty
  450. {
  451.     dup /_yokoorientation exch ddef 1 sub neg Tv
  452. } def
  453. /TY
  454. {
  455.     pop
  456. } def
  457. /T~
  458. {
  459.     Tx
  460. } def
  461. /Th
  462. {
  463.     pop pop pop pop pop
  464. } def
  465. /TX
  466. {
  467.     pop
  468. } def
  469. /Tk
  470. {
  471.     _fontSize mul 1000 div
  472.     _lineorientation 0 eq { neg 0 } { 0 exch } ifelse
  473.     rmoveto
  474.     pop
  475. } def
  476. /TK
  477. {
  478.     2 npop
  479. } def
  480. /T*
  481. {
  482.     _leading aload pop
  483.     _lineorientation 0 ne { exch } if
  484.     Td
  485. } def
  486. /T*-
  487. {
  488.     _leading aload pop
  489.     _lineorientation 0 ne { exch } if
  490.     exch neg exch neg
  491.     Td
  492. } def
  493. /T-
  494. {
  495.     _ax neg 0 rmoveto
  496.     _lineorientation 1 eq _charorientation 0 eq and { 1 TV _hyphen Tx 0 TV } { _hyphen Tx } ifelse
  497. } def
  498. /T+
  499. {
  500. } def
  501. /TR
  502. {
  503.     _ctm currentmatrix pop
  504.     _tm astore pop
  505.     iTm 0 0 moveto
  506. } def
  507. /TS
  508. {
  509.     currentfont 3 1 roll
  510.     /_Symbol_ findfont _fontSize scalefont setfont
  511.     
  512.     0 eq
  513.     {
  514.         Tx
  515.     }
  516.     {
  517.         Tj
  518.     } ifelse
  519.     setfont
  520. } def
  521. /Xb
  522. {
  523.     pop pop
  524. } def
  525. /Tb /Xb load def
  526. /Xe
  527. {
  528.     pop pop pop pop
  529. } def
  530. /Te /Xe load def
  531. /XB
  532. {
  533. } def
  534. /TB /XB load def
  535. currentdict readonly pop
  536. end
  537. setpacking
  538. %
  539. /X^
  540. {
  541.     currentfont 5 1 roll
  542.     dup havefont
  543.         {
  544.         findfont _fontSize scalefont setfont
  545.         }
  546.         {
  547.         pop
  548.         exch
  549.         } ifelse
  550.     2 index 0 eq
  551.     {
  552.         Tx
  553.     }
  554.     {
  555.         Tj
  556.     } ifelse
  557.     pop    pop
  558.     setfont
  559. } def
  560. /T^    /X^    load def
  561.  
  562. userdict /Adobe_typography_AI3 known not
  563. {
  564.     userdict /Adobe_typography_AI3 2 dict put 
  565. } if
  566. userdict /Adobe_typography_AI3 get begin
  567. /initialize { } def
  568. /terminate { } def
  569. end
  570. %%EndResource
  571.